home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / power Window v2.5.adf / TDI / PW2.def < prev    next >
Text File  |  1988-09-15  |  6KB  |  199 lines
  1. DEFINITION MODULE PW2 ;
  2.  
  3. (* This module should be compiled and placed in the M2 directory along with
  4.         the other TDI library modules.  The uncompiled code is supplied so that
  5.         you can update it with any future releases of the TDI system. *)
  6.  
  7. (* Written by Martin Murray, for INOVATRONICS, Inc., and copyrighted 1988
  8.         by INOVATRONICS, Inc. Last update 09/15/88.  *)
  9.  
  10. FROM SYSTEM IMPORT BYTE, ADDRESS;
  11. FROM ConsoleDevice IMPORT KeyMapPtr;
  12. FROM GraphicsLibrary IMPORT BitMapPtr;
  13. FROM Intuition IMPORT NewWindow, IDCMPFlagSet, WindowFlagSet, GadgetPtr,
  14.  ImagePtr, ScreenPtr, ScreenFlagSet, WindowPtr, GadgetFlagSet, RememberPtr,
  15.  ActivationFlagSet, IntuitionTextPtr, RequesterPtr, MenuPtr, PropFlagSet,
  16.  MenuItemPtr, BorderPtr, MenuFlagSet, ItemFlagSet, RequesterFlagSet,
  17.  BoolInfoPtr, PropInfoPtr, StringInfoPtr;
  18. (* Uncomment this for InovaTools1 use.
  19. FROM ITools1 IMPORT DragFlagSet, KnobPtr, KnobFlagSet;
  20. *)
  21. FROM Screens IMPORT NewScreen;
  22. FROM Text IMPORT TextAttrPtr, FontStyleSet, FontFlagSet;
  23. FROM Views IMPORT ModeSet;
  24.  
  25.  
  26. (* Each of these PROCEDURES, allocates the data as generated by PowerWindows2.
  27.    The whole list of allocated memory is hooked to a RememberPtr with the name
  28.    of your module, so just FreeRemember(moduleRememberPtr,TRUE) when done. *)
  29.  
  30. VAR
  31.         PW2EnoughMemory : BOOLEAN;
  32.         PW2RememberPtr : POINTER TO RememberPtr;
  33.  
  34. PROCEDURE MakeBoolGadgetStructure(
  35.         NextGadget: GadgetPtr;
  36.         LeftEdge, TopEdge, Width, Height: INTEGER;
  37.         Flags: GadgetFlagSet;
  38.         Activation: ActivationFlagSet;
  39.         GadgetType: CARDINAL;
  40.         GadgetRender, SelectRender: ADDRESS;
  41.         GadgetText: IntuitionTextPtr;
  42.         MutualExclude: LONGINT;
  43.         SpecialInfo: BoolInfoPtr;
  44.         GadgetID: CARDINAL;
  45.         UserData: ADDRESS
  46.         ) : ADDRESS;
  47.  
  48. PROCEDURE MakeBoolInfoStructure(
  49.         Flags: BITSET;
  50.         Mask : ADDRESS
  51.         ) : ADDRESS;
  52.  
  53. PROCEDURE MakeBorderStructure(
  54.         LeftEdge, TopEdge: INTEGER;
  55.         FrontPen, BackPen, DrawMode, Count: BYTE;
  56.         XY: ADDRESS;
  57.         NextBorder: BorderPtr
  58.         ) : ADDRESS;
  59.  
  60. (* Uncomment this for InovaTools1 use.
  61. PROCEDURE MakeDragInfoStructure(
  62.     LeftEdge, TopEdge, RightEdge, BottomEdge: INTEGER;
  63.     Flags: DragFlagSet;
  64.     UpdateRoutine: ADDRESS
  65.     ) : ADDRESS;
  66. *)
  67.  
  68. PROCEDURE MakeImageStructure(
  69.         LeftEdge, TopEdge, Width, Height, Depth: INTEGER;
  70.         ImageData: ADDRESS;
  71.         PlanePick, PlaneOnOff: BYTE;
  72.         NextImage: ImagePtr
  73.         ) : ADDRESS;
  74.  
  75. PROCEDURE MakeITextStructure(
  76.         FrontPen, BackPen, DrawMode: BYTE;
  77.         LeftEdge, TopEdge: INTEGER;
  78.         ITextFont: TextAttrPtr;
  79.         IText: ADDRESS;
  80.         NextText: IntuitionTextPtr
  81.         ) : ADDRESS;
  82.  
  83. (* Uncomment this for InovaTools1 use.
  84. PROCEDURE MakeKnobStructure(
  85.     NextKnob: KnobPtr;
  86.     XCenter, YCenter: CARDINAL;
  87.     Flags: KnobFlagSet;
  88.     Value, Range, Angle, Offset, Steps, ArrowRadius, KnobRadius: CARDINAL;
  89.     StartAngle, StopAngle, FillColor, BorderColor, ArrowColor: CARDINAL;
  90.     KnobID: CARDINAL;
  91.     UpdateRoutine: ADDRESS;
  92.     UserData: LONGINT
  93.     ) : ADDRESS;
  94. *)
  95.  
  96. PROCEDURE MakeMenuItemStructure(
  97.         NextItem: MenuItemPtr;
  98.         LeftEdge, TopEdge, Width, Height: INTEGER;
  99.         Flags: ItemFlagSet;
  100.         MutualExclude: LONGINT;
  101.         ItemFill: ADDRESS;
  102.         SelectFill: ADDRESS;
  103.         Command: BYTE;
  104.         SubItem: MenuItemPtr
  105.         ) : ADDRESS;
  106.  
  107. PROCEDURE MakeMenuStructure(
  108.         NextMenu: MenuPtr;
  109.         LeftEdge, TopEdge, Width, Height: INTEGER;
  110.         Flags: MenuFlagSet;
  111.         MenuName: ADDRESS;
  112.         FirstItem: MenuItemPtr
  113.         ) : ADDRESS;
  114.  
  115. PROCEDURE MakeNewWindowStructure(
  116.         LeftEdge, TopEdge, Width, Height: INTEGER;
  117.         DetailPen, BlockPen: BYTE;
  118.         IDCMPFlags: IDCMPFlagSet;
  119.         Flags: WindowFlagSet;
  120.         FirstGadget: GadgetPtr;
  121.         CheckMark: ImagePtr;
  122.         Title: ADDRESS;
  123.         Screen: ScreenPtr;
  124.         BitMap: BitMapPtr;
  125.         MinWidth, MinHeight, MaxWidth, MaxHeight: INTEGER;
  126.         Type: ScreenFlagSet
  127.         ) : ADDRESS;
  128.  
  129. PROCEDURE MakeNewScreenStructure(
  130.         LeftEdge, TopEdge, Width, Height, Depth: INTEGER;
  131.         DetailPen, BlockPen: BYTE;
  132.         ViewModes: ModeSet;
  133.         Type: ScreenFlagSet;
  134.         Font: TextAttrPtr;
  135.         DefaultTitle: ADDRESS;
  136.         Gadgets: GadgetPtr;
  137.         CustomBitMap: BitMapPtr
  138.         ) : ADDRESS;
  139.  
  140. PROCEDURE MakePropGadgetStructure(
  141.         NextGadget: GadgetPtr;
  142.         LeftEdge, TopEdge, Width, Height: INTEGER;
  143.         Flags: GadgetFlagSet;
  144.         Activation: ActivationFlagSet;
  145.         GadgetType: CARDINAL;
  146.         GadgetRender, SelectRender: ADDRESS;
  147.         GadgetText: IntuitionTextPtr;
  148.         MutualExclude: LONGINT;
  149.         SpecialInfo: PropInfoPtr;
  150.         GadgetID: CARDINAL;
  151.         UserData: ADDRESS
  152.         ) : ADDRESS;
  153.  
  154. PROCEDURE MakePropInfoStructure(
  155.         Flags: PropFlagSet;
  156.         HorizPot, VertPot, HorizBody, VertBody: CARDINAL
  157.         ) : ADDRESS;
  158.  
  159. PROCEDURE MakeRequesterStructure(
  160.         LeftEdge, TopEdge, Width, Height, RelLeft, RelTop: INTEGER;
  161.         ReqGadget: GadgetPtr;
  162.         ReqBorder: BorderPtr;
  163.         ReqText: IntuitionTextPtr;
  164.         Flags: RequesterFlagSet;
  165.         BackFill: BYTE;
  166.         ImageBMap: BitMapPtr;
  167.         RWindow: WindowPtr
  168.         ) : ADDRESS;
  169.  
  170. PROCEDURE MakeStringGadgetStructure(
  171.         NextGadget: GadgetPtr;
  172.         LeftEdge, TopEdge, Width, Height: INTEGER;
  173.         Flags: GadgetFlagSet;
  174.         Activation: ActivationFlagSet;
  175.         GadgetType: CARDINAL;
  176.         GadgetRender, SelectRender: ADDRESS;
  177.         GadgetText: IntuitionTextPtr;
  178.         MutualExclude: LONGINT;
  179.         SpecialInfo: StringInfoPtr;
  180.         GadgetID: CARDINAL;
  181.         UserData: ADDRESS
  182.         ) : ADDRESS;
  183.  
  184. PROCEDURE MakeStringInfoStructure(
  185.         Buffer, UndoBuffer: ADDRESS;
  186.         BufferPos, MaxChars, DispPos: INTEGER;
  187.         LongInt: LONGINT;
  188.         AltKeyMap: KeyMapPtr
  189.         ) : ADDRESS;
  190.  
  191. PROCEDURE MakeTextAttrStructure(
  192.         Name: ADDRESS;
  193.         Size: CARDINAL;
  194.         Style: FontStyleSet;
  195.         Flags: FontFlagSet
  196.         ) : ADDRESS;
  197.  
  198. END PW2.
  199.